home *** CD-ROM | disk | FTP | other *** search
/ The Pacifier Press Kit / The Pacifier Press Kit.iso / pc / Program.dxr / Internal_23_Save & Write Full.ls < prev    next >
Encoding:
Text File  |  2005-02-15  |  18.8 KB  |  348 lines
  1. global gPhotolist, gSvFile, gLF, dLM, gMegs
  2.  
  3. on enterFrame me
  4.   if gPhotolist = [] then
  5.     nothing()
  6.   else
  7.     Fdr = xtra("Filextra4").new()
  8.     Fdr.fx_FolderExists(gSvFile)
  9.     Fdr.fx_FolderCreate(gSvFile)
  10.     freeRoom = baDiskInfo(gSvFile, "Free")
  11.     freemegs = freeRoom / 1024
  12.     if freemegs < gMegs then
  13.       baDeleteFolder(gSvFile)
  14.       go("Stop Here")
  15.     else
  16.       nothing()
  17.     end if
  18.   end if
  19. end
  20.  
  21. on handlerlist
  22.   sort(gPhotolist)
  23.   image01 = "P-C132-05AR2"
  24.   image02 = "P-C395-33A"
  25.   image03 = "P-C128-05R2"
  26.   image04 = "P-C177-13AR"
  27.   image05 = "P-C345-21R"
  28.   image06 = "P-C148-13AR2"
  29.   image07 = "P-C348-30"
  30.   image08 = "P-C112-24A"
  31.   image09 = "P-C330-10A"
  32.   image10 = "P-C311-22R"
  33.   image11 = "P-C359-19"
  34.   image12 = "P-C341-17A"
  35.   image13 = "P-C089-23A"
  36.   image14 = "P-C079-25"
  37.   image15 = "P-C015-34A"
  38.   image16 = "P-C133-16"
  39.   image17 = "P-C292-08A"
  40.   image18 = "P-C140-28R"
  41.   image19 = "P-C372-27A"
  42.   image20 = "P-C397-06A"
  43.   image21 = "P-C140-01"
  44.   image22 = "P-C120-13"
  45.   image23 = "P-C001-15"
  46.   image24 = "P-C312-31A"
  47.   image25 = "P-C268-03A"
  48.   image26 = "P-C317-23A"
  49.   image27 = "P-C103-16R"
  50.   image28 = "P-C295-24"
  51.   image29 = "P-C108-24"
  52.   image30 = "P-C081-02A"
  53.   image31 = "P-C174-05"
  54.   Title01 = "P-TitleArt"
  55.   Title02 = "P-OneSheet-01"
  56.   Title03 = "P-OneSheet-02"
  57.   notes1 = "Pacifier_Notes"
  58.   repeat with i = 1 to gPhotolist.count
  59.     Downloads = getAt(gPhotolist, i)
  60.     xyz = the moviePath
  61.     origFile = xyz & "Images" & dLM
  62.     case Downloads of
  63.       "C01":
  64.         go("DL1")
  65.         Ok = baCopyFileProgress(origFile & image01 & ".jpg", gSvFile & image01 & ".jpg", "always", "Saving...", "Cancel", 32)
  66.       "C02":
  67.         go("DL2")
  68.         Ok = baCopyFileProgress(origFile & image02 & ".jpg", gSvFile & image02 & ".jpg", "always", "Saving...", "Cancel", 32)
  69.       "C03":
  70.         go("DL3")
  71.         Ok = baCopyFileProgress(origFile & image03 & ".jpg", gSvFile & image03 & ".jpg", "always", "Saving...", "Cancel", 32)
  72.       "C04":
  73.         go("DL4")
  74.         Ok = baCopyFileProgress(origFile & image04 & ".jpg", gSvFile & image04 & ".jpg", "always", "Saving...", "Cancel", 32)
  75.       "C05":
  76.         go("DL5")
  77.         Ok = baCopyFileProgress(origFile & image05 & ".jpg", gSvFile & image05 & ".jpg", "always", "Saving...", "Cancel", 32)
  78.       "C06":
  79.         go("DL6")
  80.         Ok = baCopyFileProgress(origFile & image06 & ".jpg", gSvFile & image06 & ".jpg", "always", "Saving...", "Cancel", 32)
  81.       "C07":
  82.         go("DL7")
  83.         Ok = baCopyFileProgress(origFile & image07 & ".jpg", gSvFile & image07 & ".jpg", "always", "Saving...", "Cancel", 32)
  84.       "C08":
  85.         go("DL8")
  86.         Ok = baCopyFileProgress(origFile & image08 & ".jpg", gSvFile & image08 & ".jpg", "always", "Saving...", "Cancel", 32)
  87.       "C09":
  88.         go("DL9")
  89.         Ok = baCopyFileProgress(origFile & image09 & ".jpg", gSvFile & image09 & ".jpg", "always", "Saving...", "Cancel", 32)
  90.       "C10":
  91.         go("DL10")
  92.         Ok = baCopyFileProgress(origFile & image10 & ".jpg", gSvFile & image10 & ".jpg", "always", "Saving...", "Cancel", 32)
  93.       "C11":
  94.         go("DL11")
  95.         Ok = baCopyFileProgress(origFile & image11 & ".jpg", gSvFile & image11 & ".jpg", "always", "Saving...", "Cancel", 32)
  96.       "C12":
  97.         go("DL12")
  98.         Ok = baCopyFileProgress(origFile & image12 & ".jpg", gSvFile & image12 & ".jpg", "always", "Saving...", "Cancel", 32)
  99.       "C13":
  100.         go("DL13")
  101.         Ok = baCopyFileProgress(origFile & image13 & ".jpg", gSvFile & image13 & ".jpg", "always", "Saving...", "Cancel", 32)
  102.       "C14":
  103.         go("DL14")
  104.         Ok = baCopyFileProgress(origFile & image14 & ".jpg", gSvFile & image14 & ".jpg", "always", "Saving...", "Cancel", 32)
  105.       "C15":
  106.         go("DL15")
  107.         Ok = baCopyFileProgress(origFile & image15 & ".jpg", gSvFile & image15 & ".jpg", "always", "Saving...", "Cancel", 32)
  108.       "C16":
  109.         go("DL16")
  110.         Ok = baCopyFileProgress(origFile & image16 & ".jpg", gSvFile & image16 & ".jpg", "always", "Saving...", "Cancel", 32)
  111.       "C17":
  112.         go("DL17")
  113.         Ok = baCopyFileProgress(origFile & image17 & ".jpg", gSvFile & image17 & ".jpg", "always", "Saving...", "Cancel", 32)
  114.       "C18":
  115.         go("DL18")
  116.         Ok = baCopyFileProgress(origFile & image18 & ".jpg", gSvFile & image18 & ".jpg", "always", "Saving...", "Cancel", 32)
  117.       "C19":
  118.         go("DL19")
  119.         Ok = baCopyFileProgress(origFile & image19 & ".jpg", gSvFile & image19 & ".jpg", "always", "Saving...", "Cancel", 32)
  120.       "C20":
  121.         go("DL20")
  122.         Ok = baCopyFileProgress(origFile & image20 & ".jpg", gSvFile & image20 & ".jpg", "always", "Saving...", "Cancel", 32)
  123.       "C21":
  124.         go("DL21")
  125.         Ok = baCopyFileProgress(origFile & image21 & ".jpg", gSvFile & image21 & ".jpg", "always", "Saving...", "Cancel", 32)
  126.       "C22":
  127.         go("DL22")
  128.         Ok = baCopyFileProgress(origFile & image22 & ".jpg", gSvFile & image22 & ".jpg", "always", "Saving...", "Cancel", 32)
  129.       "C23":
  130.         go("DL23")
  131.         Ok = baCopyFileProgress(origFile & image23 & ".jpg", gSvFile & image23 & ".jpg", "always", "Saving...", "Cancel", 32)
  132.       "C24":
  133.         go("DL24")
  134.         Ok = baCopyFileProgress(origFile & image24 & ".jpg", gSvFile & image24 & ".jpg", "always", "Saving...", "Cancel", 32)
  135.       "C25":
  136.         go("DL25")
  137.         Ok = baCopyFileProgress(origFile & image25 & ".jpg", gSvFile & image25 & ".jpg", "always", "Saving...", "Cancel", 32)
  138.       "C26":
  139.         go("DL26")
  140.         Ok = baCopyFileProgress(origFile & image26 & ".jpg", gSvFile & image26 & ".jpg", "always", "Saving...", "Cancel", 32)
  141.       "C27":
  142.         go("DL27")
  143.         Ok = baCopyFileProgress(origFile & image27 & ".jpg", gSvFile & image27 & ".jpg", "always", "Saving...", "Cancel", 32)
  144.       "C28":
  145.         go("DL28")
  146.         Ok = baCopyFileProgress(origFile & image28 & ".jpg", gSvFile & image28 & ".jpg", "always", "Saving...", "Cancel", 32)
  147.       "C29":
  148.         go("DL29")
  149.         Ok = baCopyFileProgress(origFile & image29 & ".jpg", gSvFile & image29 & ".jpg", "always", "Saving...", "Cancel", 32)
  150.       "C30":
  151.         go("DL30")
  152.         Ok = baCopyFileProgress(origFile & image30 & ".jpg", gSvFile & image30 & ".jpg", "always", "Saving...", "Cancel", 32)
  153.       "C31":
  154.         go("DL31")
  155.         Ok = baCopyFileProgress(origFile & image31 & ".jpg", gSvFile & image31 & ".jpg", "always", "Saving...", "Cancel", 32)
  156.       "TT01":
  157.         go("DLT01")
  158.         Ok = baCopyFileProgress(origFile & Title01 & ".psd", gSvFile & Title01 & ".psd", "always", "Saving...", "Cancel", 32)
  159.       "TT02":
  160.         go("DLT02")
  161.         Ok = baCopyFileProgress(origFile & Title02 & ".tif", gSvFile & Title02 & ".tif", "always", "Saving...", "Cancel", 32)
  162.       "TT03":
  163.         go("DLT03")
  164.         Ok = baCopyFileProgress(origFile & Title03 & ".tif", gSvFile & Title03 & ".tif", "always", "Saving...", "Cancel", 32)
  165.       "vNotes":
  166.         Ok = baCopyFileProgress(xyz & "Notes" & dLM & notes1 & ".PDF", gSvFile & notes1 & ".PDF", "always", "Saving...", "Cancel", 32)
  167.     end case
  168.   end repeat
  169.   CopyrightText1 = EMPTY
  170.   CopyrightText2 = QUOTE & "¬© 2005 Disney Enterprises, Inc. All Rights Reserved." & QUOTE
  171.   CopyrightText4 = EMPTY
  172.   put the long date into member "Caption Text"
  173.   put gLF after member "Caption Text"
  174.   put the time after member "Caption Text"
  175.   put gLF & "Location of the saved files is " & gSvFile after member "Caption Text"
  176.   put gLF & gLF & gLF after member "Caption Text"
  177.   put "********************" after member "Caption Text"
  178.   put gLF after member "Caption Text"
  179.   put "NOTE: Fully formatted Photo IDs in MS Word format are available on the" && QUOTE & "The Pacifier Images" & QUOTE && " Folder." after member "Caption Text"
  180.   put gLF after member "Caption Text"
  181.   put "********************" after member "Caption Text"
  182.   put gLF & gLF & gLF after member "Caption Text"
  183.   put "You have saved the following files to your hard drive:" after member "Caption Text"
  184.   put gLF after member "Caption Text"
  185.   put gLF after member "Caption Text"
  186.   if baFileExists(gSvFile & image01 & ".jpg") then
  187.     put image01 & "                               Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  188.     put "(Left to right) Vin Diesel, Max Thieriot, Morgan York, Brittany Snow." & CopyrightText1 & gLF after member "Caption Text"
  189.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  190.   end if
  191.   if baFileExists(gSvFile & image02 & ".jpg") then
  192.     put image02 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  193.     put "Vin Diesel (left), Luke/Bo Vink (baby, left center), Logan/Keegan Hoover (third from left)." & CopyrightText1 & gLF after member "Caption Text"
  194.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  195.   end if
  196.   if baFileExists(gSvFile & image03 & ".jpg") then
  197.     put image03 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  198.     put "Vin Diesel (left), Luke/Bo Vink (right)." & CopyrightText1 & gLF after member "Caption Text"
  199.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  200.   end if
  201.   if baFileExists(gSvFile & image04 & ".jpg") then
  202.     put image04 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  203.     put "(Left to right) Logan/Keegan Hoover, Luke/Bo Vink, Vin Diesel." & CopyrightText1 & gLF after member "Caption Text"
  204.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  205.   end if
  206.   if baFileExists(gSvFile & image05 & ".jpg") then
  207.     put image05 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  208.     put "Vin Diesel (front), Morgan York (right). " & CopyrightText1 & gLF after member "Caption Text"
  209.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  210.   end if
  211.   if baFileExists(gSvFile & image06 & ".jpg") then
  212.     put image06 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  213.     put "Faith Ford (left), Chris Potter (right)." & gLF & CopyrightText1 & gLF after member "Caption Text"
  214.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  215.   end if
  216.   if baFileExists(gSvFile & image07 & ".jpg") then
  217.     put image07 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  218.     put "(Left to right) Brittany Snow, Logan/Keegan Hoover, Vin Diesel, Luke/Bo Vink, Max Thieriot, Morgan York." & CopyrightText1 & gLF after member "Caption Text"
  219.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  220.   end if
  221.   if baFileExists(gSvFile & image08 & ".jpg") then
  222.     put image08 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  223.     put "Brad Garrett (left), Vin Diesel (right)." & CopyrightText1 & gLF after member "Caption Text"
  224.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  225.   end if
  226.   if baFileExists(gSvFile & image09 & ".jpg") then
  227.     put image09 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  228.     put "Vin Diesel (right), Lauren Graham (right)." & CopyrightText1 & gLF after member "Caption Text"
  229.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  230.   end if
  231.   if baFileExists(gSvFile & image10 & ".jpg") then
  232.     put image10 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  233.     put "(Left to right) Vin Diesel, Luke/Bo Vink, Logan/Keegan Hoover, Faith Ford, Max Thieriot, Brittany Snow, Morgan York." & CopyrightText1 & gLF after member "Caption Text"
  234.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  235.   end if
  236.   if baFileExists(gSvFile & image11 & ".jpg") then
  237.     put image11 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  238.     put "Luke/Bo Vink (left), Vin Diesel (right)." & CopyrightText1 & gLF after member "Caption Text"
  239.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  240.   end if
  241.   if baFileExists(gSvFile & image12 & ".jpg") then
  242.     put image12 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  243.     put "FRONT: Denis Akiyama (left), Vin Diesel (center), Lauren Graham (right). BACK (left to right): Max Thieriot, Brittany Snow, Luke/Bo Vink, Faith Ford, Morgan York" & CopyrightText1 & gLF after member "Caption Text"
  244.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  245.   end if
  246.   if baFileExists(gSvFile & image13 & ".jpg") then
  247.     put image13 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  248.     put "Morgan York (second from left), Vin Diesel (right)." & CopyrightText1 & gLF after member "Caption Text"
  249.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  250.   end if
  251.   if baFileExists(gSvFile & image14 & ".jpg") then
  252.     put image14 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  253.     put "Vin Diesel." & CopyrightText1 & gLF after member "Caption Text"
  254.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  255.   end if
  256.   if baFileExists(gSvFile & image15 & ".jpg") then
  257.     put image15 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  258.     put "Vin Diesel." & CopyrightText1 & gLF after member "Caption Text"
  259.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  260.   end if
  261.   if baFileExists(gSvFile & image16 & ".jpg") then
  262.     put image16 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  263.     put "Vin Diesel." & CopyrightText1 & gLF after member "Caption Text"
  264.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  265.   end if
  266.   if baFileExists(gSvFile & image17 & ".jpg") then
  267.     put image17 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  268.     put "Carol Kane." & CopyrightText1 & gLF after member "Caption Text"
  269.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  270.   end if
  271.   if baFileExists(gSvFile & image18 & ".jpg") then
  272.     put image18 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  273.     put "Vin Diesel." & CopyrightText1 & gLF after member "Caption Text"
  274.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  275.   end if
  276.   if baFileExists(gSvFile & image19 & ".jpg") then
  277.     put image19 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  278.     put "Lauren Graham." & CopyrightText1 & gLF after member "Caption Text"
  279.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  280.   end if
  281.   if baFileExists(gSvFile & image20 & ".jpg") then
  282.     put image20 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  283.     put "Brad Garrett." & CopyrightText1 & gLF after member "Caption Text"
  284.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  285.   end if
  286.   if baFileExists(gSvFile & image21 & ".jpg") then
  287.     put image21 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  288.     put "Faith Ford." & CopyrightText1 & gLF after member "Caption Text"
  289.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  290.   end if
  291.   if baFileExists(gSvFile & image22 & ".jpg") then
  292.     put image22 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  293.     put "Brittany Snow." & CopyrightText1 & gLF after member "Caption Text"
  294.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  295.   end if
  296.   if baFileExists(gSvFile & image23 & ".jpg") then
  297.     put image23 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  298.     put "Max Thieriot." & CopyrightText1 & gLF after member "Caption Text"
  299.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  300.   end if
  301.   if baFileExists(gSvFile & image24 & ".jpg") then
  302.     put image24 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  303.     put "Morgan York." & CopyrightText1 & gLF after member "Caption Text"
  304.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  305.   end if
  306.   if baFileExists(gSvFile & image25 & ".jpg") then
  307.     put image25 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  308.     put "Logan/Keegan Hoover." & CopyrightText1 & gLF after member "Caption Text"
  309.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  310.   end if
  311.   if baFileExists(gSvFile & image26 & ".jpg") then
  312.     put image26 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  313.     put "Luke/Bo Vink." & CopyrightText1 & gLF after member "Caption Text"
  314.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  315.   end if
  316.   if baFileExists(gSvFile & image27 & ".jpg") then
  317.     put image27 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  318.     put "Brad Garrett (left), Adam Shankman (center), Vin Diesel (right)." & CopyrightText1 & gLF after member "Caption Text"
  319.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  320.   end if
  321.   if baFileExists(gSvFile & image28 & ".jpg") then
  322.     put image28 & "                                  Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  323.     put "Adam Shankman." & CopyrightText1 & gLF after member "Caption Text"
  324.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  325.   end if
  326.   if baFileExists(gSvFile & image29 & ".jpg") then
  327.     put image29 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  328.     put "Brad Garrett (left), Vin Diesel (center), Adam Shankman (right)." & CopyrightText1 & gLF after member "Caption Text"
  329.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  330.   end if
  331.   if baFileExists(gSvFile & image30 & ".jpg") then
  332.     put image30 & "                                 Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  333.     put "Logan/Keegan Hoover (left), Vin Diesel (center), Seth Howard (right)." & CopyrightText1 & gLF after member "Caption Text"
  334.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  335.   end if
  336.   if baFileExists(gSvFile & image31 & ".jpg") then
  337.     put image31 & "                                Photo Credit: Kerry Hayes/SMPSP" & gLF after member "Caption Text"
  338.     put "Roger Birnbaum (left), Gary Barber (center), Vin Diesel (right)." & CopyrightText1 & gLF after member "Caption Text"
  339.     put CopyrightText2 & gLF & gLF & gLF & gLF after member "Caption Text"
  340.   end if
  341. end
  342.  
  343. on exitFrame
  344.   handlerlist()
  345.   dsk = 0
  346.   go("WriteCap")
  347. end
  348.